/* testing rexx command */
address command

work = "pipe:cgi-finger-" || pragma( "ID" )

parse arg user

say "Content-type: text/html"
say ""

Finger = "inet:bin/finger"
Img = '<img src="http://queer.slip.cs.cmu.edu/amlogosmall.gif">'
num = date('D')*96 + (time('M') % 15)
num2= num % 8

if exists( Finger )
then do
	if User =  ""
	then do
		say "<TITLE>Arexx Finger Gateway running on an amiga</TITLE>"
		say ""
		say "<ISINDEX>"
		say "<p>The time is "||time('Civil')||" on "||date('Normal')||" here in Pittsburgh."
		say "<p>That means that approximately <b>"||num||"</b>  people, <b>"||num2||"</b> of them children, have been killed by guns in the United States so far this year."
		say '<p>This is a gateway to "finger". It is written in arexx, and running on an amiga.<br>'
		say 'Type a user@host combination in your browser''s'
		say "search dialog.<P>"
	end
	else do
		say "<h1>"||Img||"Result of finger "||user||"</h1><hr>"
		say "<PRE>"
		Finger user
		say "</pre>"
	end
end
else do
	say "Cannot find finger on this system."
end